home *** CD-ROM | disk | FTP | other *** search
/ PCDisk Magazine Disks / PCDisk Magazine - Disk 1.img / QUIKPRO2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-01-04  |  1.0 KB  |  46 lines
  1. 0  COLOR 0,0
  2. 1  ON ERROR GOTO 60000
  3. 2  COLOR 0,0
  4. 3  LOCATE ,,0
  5. 5  CLS
  6. 6  DEF FN CENTER$(A$)= STRING$(40-(LEN(A$)/2),28)+A$
  7. 7  KEY OFF
  8. 10   PRINT:PRINT:PRINT:PRINT:PRINT
  9. 20  '
  10. 30  '
  11. 40   FOR X = 1 TO 17
  12. 50  '
  13. 55       READ H$,FG,BG
  14. 57       COLOR FG,BG
  15. 60       PRINT FN CENTER$(H$)
  16. 61  COLOR 0,0
  17. 70  '
  18. 80    NEXT X
  19. 100  '
  20. 200  '
  21. 205  DATA "            tm        ",15,0
  22. 210  DATA "Mini QUIKPRO   Part II",15,0
  23. 220  DATA " ",,
  24. 230  DATA "Report Program Writer",12,0
  25. 240  DATA " ",,
  26. 250  DATA "Special PC DISK Magazine Version",15,0
  27. 260  DATA " ",,,"",,,"",,,"",,,"",,,"",,,"",,,"",,
  28. 270  DATA "(c) 1982,1983,1984, ICR FutureSoft",15,0
  29. 280  DATA "",,
  30. 290  DATA "Authored by: J. W. (Skip) Tamargo",9,0
  31. 291  COLOR 0,0
  32. 295  FOR DELAY = 1 TO 1500:NEXT DELAY
  33. 300  GOTO 65000
  34. 60000  COLOR 0,0
  35. 60005   IF ERR=70 THEN CLS:COLOR 15,0:PRINT:PRINT:PRINT "Your DISKETTE is Write Protected. ":PRINT:PRINT "  REMOVE the Write Protect Tab from your Diskette":COLOR 7,0:RESUME 60010
  36. 60010  SYSTEM
  37. 65000  '
  38. 65010  OPEN "R",1,"RANDPRT2.",1
  39. 65020    FIELD 1, 1 AS WW$
  40. 65030    GET 1,1
  41. 65035   IF WW$=CHR$(254) THEN CLS: COLOR 0,0:SYSTEM
  42. 65040  LSET WW$=CHR$(254)
  43. 65050     PUT 1,1
  44. 65060    CLOSE
  45. 65070    RUN "RANDPRT2."
  46.